Softdisk for Windows 38/Softdisk for Windows 38.iso/oilpro/OILPRO.EXE/OILPRO.DXR/00331.ls

Text File | 1997-08-20 | 566 b | 25 lines

on exitFrame
  global LIGHTCNT
  set LIGHTCNT to LIGHTCNT + 1
  if rollOver(48) then
    set the castNum of sprite 48 to cast "QUITRETURN1"
  else
    set the castNum of sprite 48 to cast "QUITRETURN0"
  end if
  puppetSprite(4, 1)
  if LIGHTCNT >= 4 then
    set LIGHTCNT to 1
  end if
  if LIGHTCNT = 1 then
    set the castNum of sprite 4 to cast "LIGHT1"
  end if
  if LIGHTCNT = 2 then
    set the castNum of sprite 4 to cast "LIGHT2"
  end if
  if LIGHTCNT = 3 then
    set the castNum of sprite 4 to cast "LIGHT3"
  end if
  updateStage()
  go(the frame)
end